Skip to content

Commit

Permalink
rm trailing spaces
Browse files Browse the repository at this point in the history
  • Loading branch information
@IvanaEscobar
IvanaEscobar committed Nov 19, 2024
1 parent d1c8aa8 commit 0396182
Show file tree
Hide file tree
Showing 10 changed files with 84 additions and 84 deletions.
24 changes: 12 additions & 12 deletions pkg/profiles/active_file_control_profiles.F
View file
Original file line number Diff line number Diff line change
Expand Up @@ -103,18 +103,18 @@ SUBROUTINE ACTIVE_READ_PROFILE_RL(
IF (profilesDoNcOutput) THEN
err = NF_GET_VARA_DOUBLE( fid, varId, vec_start, vec_count,
& active_var )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_READ: NF_GET_VARA_DOUBLE active_var',
& err,bi,bj,myThid )

err = NF_INQ_VARID( fid,
prof_namesmask(active_num_file,active_varnum), maskId )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_READ: NF_INQ_VARID prof_namesmask',
& err,bi,bj,myThid )
err = NF_GET_VARA_DOUBLE( fid, maskId, vec_start, vec_count,
& prof_mask1D_cur(1,bi,bj) )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_READ: NF_GET_VARA_DOUBLE prof_mask1D_cur',
& err,bi,bj,myThid )

Expand Down Expand Up @@ -153,7 +153,7 @@ SUBROUTINE ACTIVE_READ_PROFILE_RL(
IF (profilesDoNcOutput) THEN
err = NF_GET_VARA_DOUBLE( fid, varId, vec_start, vec_count,
& active_data_t )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_READ: NF_GET_VARA_DOUBLE AD active_data_t',
& err,bi,bj,myThid )

Expand All @@ -165,7 +165,7 @@ SUBROUTINE ACTIVE_READ_PROFILE_RL(

err = NF_PUT_VARA_DOUBLE(fid, varId, vec_start, vec_count,
& active_data_t )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_READ: NF_PUT_VARA_DOUBLE AD active_data_t',
& err,bi,bj,myThid )

Expand Down Expand Up @@ -220,7 +220,7 @@ SUBROUTINE ACTIVE_READ_PROFILE_RL(
IF (profilesDoNcOutput) THEN
err = NF_GET_VARA_DOUBLE( fid, varId, vec_start, vec_count,
& active_var )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_READ: NF_GET_VARA_DOUBLE TL active_var',
& err,bi,bj,myThid )

Expand Down Expand Up @@ -330,7 +330,7 @@ SUBROUTINE ACTIVE_WRITE_PROFILE_RL(
IF (profilesDoNcOutput) THEN
err = NF_PUT_VARA_DOUBLE( fid, varId, vec_start, vec_count,
& active_var )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_WRITE: NF_PUT_VARA_DOUBLE active_var',
& err,bi,bj,myThid )

Expand All @@ -341,7 +341,7 @@ SUBROUTINE ACTIVE_WRITE_PROFILE_RL(
& err,bi,bj,myThid )
err = NF_PUT_VARA_DOUBLE(fid, maskId, vec_start, vec_count,
& prof_mask1D_cur(1,bi,bj) )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_WRITE: NF_PUT_VARA_DOUBLE prof_mask1D_cur',
& err,bi,bj,myThid )

Expand All @@ -350,7 +350,7 @@ SUBROUTINE ACTIVE_WRITE_PROFILE_RL(
& 'ACTIVE_WRITE: NF_INQ_VARID prof_ind_glob',
& err,bi,bj,myThid )
err = NF_PUT_VAR1_INT( fid, maskId, vec_start(2), irecglob )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_WRITE: NF_PUT_VAR1_INT irecglob',
& err,bi,bj,myThid )

Expand Down Expand Up @@ -390,7 +390,7 @@ SUBROUTINE ACTIVE_WRITE_PROFILE_RL(
IF (profilesDoNcOutput) THEN
err = NF_GET_VARA_DOUBLE( fid, varId, vec_start, vec_count,
& active_data_t )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_WRITE: NF_GET_VARA_DOUBLE AD active_data_t',
& err,bi,bj,myThid )

Expand All @@ -402,7 +402,7 @@ SUBROUTINE ACTIVE_WRITE_PROFILE_RL(

err = NF_PUT_VARA_DOUBLE( fid, varId, vec_start, vec_count,
& active_data_t )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_WRITE: NF_PUT_VARA_DOUBLE AD active_data_t',
& err,bi,bj,myThid )

Expand Down Expand Up @@ -448,7 +448,7 @@ SUBROUTINE ACTIVE_WRITE_PROFILE_RL(
IF (profilesDoNcOutput) THEN
err = NF_PUT_VARA_DOUBLE( fid, varId, vec_start, vec_count,
& active_var )
CALL PROFILES_NF_ERROR(
CALL PROFILES_NF_ERROR(
& 'ACTIVE_WRITE: NF_PUT_VARA_DOUBLE TL active_var',
& err,bi,bj,myThid )

Expand Down
28 changes: 14 additions & 14 deletions pkg/profiles/cost_profiles.F
View file
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )
#endif

C !INPUT PARAMETERS:
C myIter: iteration counter for this thread
C myIter: iteration counter for this thread
C myTime: time counter for this thread
C myThid: my thread ID number
INTEGER myIter
Expand Down Expand Up @@ -176,7 +176,7 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )

IF (ix9 .GE. 0. _d 0 .AND. iy9 .GE. 0. _d 0) THEN
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj)
IF (avgbinglbsum(itmp).EQ.0)
IF (avgbinglbsum(itmp).EQ.0)
& avgbinglbsum(itmp) = 1

CALL ACTIVE_READ_PROFILE( num_file,
Expand Down Expand Up @@ -307,8 +307,8 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )
& tmp_recip_count

ENDIF
ENDDO !DO num_var
ENDDO !DO kC
ENDDO !DO num_var
ENDDO !DO kC
ENDDO !DO iavgbin

DO iavgbin = 1, NAVGBIN
Expand All @@ -321,8 +321,8 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )

tmp12 = prof_weights1D_all_mean(iavgbin,kC,num_var)
& * recip_profiles_mean_indsamples(num_var)
prof_weights1D_all_mean(iavgbin,kC,num_var) =

prof_weights1D_all_mean(iavgbin,kC,num_var) =
& MAX(tmp11, tmp12)

C prof_weights1D_all_mean is still sigam^2. Convert to weight
Expand All @@ -332,8 +332,8 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )
& 1. _d 0 / prof_weights1D_all_mean(iavgbin,kC,num_var)
ENDIF
ENDDO !DO num_var
ENDDO !DO kC
ENDDO !DO iavgbin
ENDDO !DO kC
ENDDO !DO iavgbin

IF (myProcId.EQ.0) THEN

Expand Down Expand Up @@ -424,7 +424,7 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )

ENDDO

IF (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.)
IF (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.)
& THEN
#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj)
Expand Down Expand Up @@ -593,10 +593,10 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )

DO bj = myByLo(myThid), myByHi(myThid)
DO bi = myBxLo(myThid), myBxHi(myThid)
objf_prof_tile(bi,bj) =
objf_prof_tile(bi,bj) =
& objf_profiles(num_file,num_var,bi,bj)

num_prof_tile(bi,bj) =
num_prof_tile(bi,bj) =
& num_profiles(num_file,num_var,bi,bj)

ENDDO
Expand All @@ -609,7 +609,7 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )
& ' cost_profiles(',num_file,',',num_var,') = ',
& objf_prof_glo,num_prof_glo

IF (num_prof_glo .GT. 0.)
IF (num_prof_glo .GT. 0.)
& CALL PRINT_MESSAGE( msgBuf,
& standardMessageUnit,SQUEEZE_RIGHT , myThid )

Expand All @@ -618,7 +618,7 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )

#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
DO num_var = 1, NVARMAX

DO bj = myByLo(myThid), myByHi(myThid)
DO bi = myBxLo(myThid), myBxHi(myThid)
objf_prof_mean_tile(bi,bj) =
Expand All @@ -639,7 +639,7 @@ SUBROUTINE COST_PROFILES( myIter, myTime, myThid )
& ' cost_profiles_mean(',num_var,') = ',
& objf_prof_mean_glo,num_prof_mean_glo

IF (num_prof_mean_glo .GT. 0.)
IF (num_prof_mean_glo .GT. 0.)
& CALL PRINT_MESSAGE( msgBuf,
& standardMessageUnit,SQUEEZE_RIGHT , myThid )

Expand Down
Loading

0 comments on commit 0396182

Please sign in to comment.