New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11440 – NEMO

Changeset 11440


Ignore:
Timestamp:
2019-08-15T16:43:05+02:00 (4 years ago)
Author:
mattmartin
Message:

Update after Dan's review.

Location:
branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

    r11404 r11440  
    7878#if defined key_dynldf_c3d 
    7979         IF( kt == nit000 .AND. ln_stopack .AND. & 
    80             & ( (nn_spp_ahm1+nn_spp_ahm2) > 0 ) ) THEN 
     80            & ( (nn_spp_ahm1 + nn_spp_ahm2) > 0 ) ) THEN 
    8181             ALLOCATE ( ahm10(jpi,jpj,jpk), ahm20(jpi,jpj,jpk) ) 
    8282             ALLOCATE ( ahm30(jpi,jpj,jpk), ahm40(jpi,jpj,jpk) ) 
    … …  
    8989#if defined key_dynldf_c2d 
    9090         IF( kt == nit000 .AND. ln_stopack .AND. & 
    91             & ( (nn_spp_ahm1+nn_spp_ahm2) > 0 ) ) THEN 
     91            & ( (nn_spp_ahm1 + nn_spp_ahm2) > 0 ) ) THEN 
    9292             ALLOCATE ( ahm10(jpi,jpj), ahm20(jpi,jpj) ) 
    9393             ALLOCATE ( ahm30(jpi,jpj), ahm40(jpi,jpj) ) 
    … …  
    104104               IF( ln_dynldf_lap ) THEN 
    105105                  ahm1 = ahm10 
    106                   CALL spp_ahm(kt,ahm1,nn_spp_ahm1,rn_ahm1_sd,jk_spp_ahm1) 
     106                  CALL spp_ahm(kt, ahm1, nn_spp_ahm1, rn_ahm1_sd, jk_spp_ahm1) 
    107107               ENDIF 
    108108               IF( ln_dynldf_bilap ) THEN 
    109109                  ahm3 = ahm30 
    110                   CALL spp_ahm(kt,ahm3,nn_spp_ahm1,rn_ahm1_sd,jk_spp_ahm3) 
     110                  CALL spp_ahm(kt, ahm3, nn_spp_ahm1, rn_ahm1_sd, jk_spp_ahm3) 
    111111               ENDIF 
    112112            ENDIF 
    … …  
    114114               IF( ln_dynldf_lap ) THEN 
    115115               ahm2 = ahm20 
    116                CALL spp_ahm(kt,ahm2,nn_spp_ahm2,rn_ahm2_sd,jk_spp_ahm2) 
     116               CALL spp_ahm(kt, ahm2, nn_spp_ahm2, rn_ahm2_sd, jk_spp_ahm2) 
    117117               ENDIF 
    118118               IF( ln_dynldf_bilap ) THEN 
    119119                  ahm4 = ahm40 
    120                   CALL spp_ahm(kt,ahm4,nn_spp_ahm2,rn_ahm2_sd,jk_spp_ahm4) 
     120                  CALL spp_ahm(kt, ahm4, nn_spp_ahm2, rn_ahm2_sd, jk_spp_ahm4) 
    121121               ENDIF 
    122122            ENDIF 

  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r11404 r11440  
    9898            IF( nn_sstr == 1 ) THEN                                   !* Temperature restoring term 
    9999 
    100                CALL wrk_alloc( jpi, jpj, rn_dqdt_s) 
     100               CALL wrk_alloc( jpi, jpj, rn_dqdt_s ) 
    101101               rn_dqdt_s(:,:) = rn_dqdt 
    102102 
    103103               IF( ln_stopack .AND. nn_spp_dqdt > 0 ) & 
    104                   & CALL spp_gen(kt, rn_dqdt_s,nn_spp_dqdt,rn_dqdt_sd,jk_spp_dqdt ) 
     104                  & CALL spp_gen( kt, rn_dqdt_s, nn_spp_dqdt, rn_dqdt_sd, jk_spp_dqdt ) 
    105105               DO jj = 1, jpj 
    106106                  DO ji = 1, jpi 
    … …  
    135135               zsrp(:,:) = rn_deds 
    136136               IF( ln_stopack .AND. nn_spp_dedt > 0 ) & 
    137                   & CALL spp_gen(kt, zsrp, nn_spp_dedt, rn_dedt_sd, jk_spp_deds ) 
     137                  & CALL spp_gen( kt, zsrp, nn_spp_dedt, rn_dedt_sd, jk_spp_deds ) 
    138138               zerp_bnd = rn_sssr_bnd / rday                          !       -              -     
    139139!CDIR COLLAPSE 

  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

    r11404 r11440  
    22462246      IF (ln_dpsiu ) THEN 
    22472247          CALL lbc_lnk(dpsiu,'T',1._wp) 
    2248 #ifdef key_iomput 
    2249           !CALL iom_put( "bsft" , dpsiu ) 
    2250 #endif 
    22512248      ENDIF 
    22522249      IF (ln_dpsiv ) THEN 
    22532250          CALL lbc_lnk(dpsiv,'T',1._wp) 
    2254 #ifdef key_iomput 
    2255           !CALL iom_put( "bsftv" , dpsiv ) 
    2256 #endif 
    2257       ENDIF 
    2258  
    2259       IF(kt .EQ. nitend ) THEN 
     2251      ENDIF 
     2252 
     2253      IF(kt == nitend ) THEN 
    22602254        IF (ln_dpsiv ) DEALLOCATE ( dpsiv ) 
    22612255        IF (ln_dpsiu ) DEALLOCATE ( dpsiu ) 

  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r11424 r11440  
    200200      ahu_bbl_1(:,:) = ahu_bbl(:,:) 
    201201      IF( ln_stopack .AND. nn_spp_ahubbl > 0 ) THEN 
    202           CALL spp_gen(1 , ahu_bbl_1, nn_spp_ahubbl, rn_ahubbl_sd, jk_spp_ahubbl ) 
     202          CALL spp_gen(1, ahu_bbl_1, nn_spp_ahubbl, rn_ahubbl_sd, jk_spp_ahubbl ) 
    203203      ENDIF 
    204204      ahv_bbl_1(:,:) = ahv_bbl(:,:) 
    205205      IF( ln_stopack .AND. nn_spp_ahvbbl > 0 ) THEN 
    206           CALL spp_gen(1 , ahv_bbl_1, nn_spp_ahvbbl, rn_ahvbbl_sd, jk_spp_ahvbbl ) 
     206          CALL spp_gen(1, ahv_bbl_1, nn_spp_ahvbbl, rn_ahvbbl_sd, jk_spp_ahvbbl ) 
    207207      ENDIF 
    208208      ! 

  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r11404 r11440  
    808808         END DO 
    809809         IF( ln_stopack) THEN 
    810             IF( nn_spp_avt > 0 ) CALL spp_gen(kt,avt(:,:,jk),nn_spp_avt,rn_avt_sd,jk) 
    811             IF( nn_spp_avm > 0 ) CALL spp_gen(kt,avm(:,:,jk),nn_spp_avm,rn_avm_sd,jk) 
     810            IF( nn_spp_avt > 0 ) CALL spp_gen(kt, avt(:,:,jk), nn_spp_avt, rn_avt_sd,jk) 
     811            IF( nn_spp_avm > 0 ) CALL spp_gen(kt, avm(:,:,jk), nn_spp_avm, rn_avm_sd,jk) 
    812812         ENDIF  
    813813      END DO 

  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r11424 r11440  
    189189         IF( nn_spp_tkelc > 0 ) THEN 
    190190             rn_lc0 = rn_lc 
    191              CALL spp_gen(kt,rn_lc0,nn_spp_tkelc,rn_tkelc_sd,    jk_spp_tkelc ) 
     191             CALL spp_gen( kt, rn_lc0, nn_spp_tkelc, rn_tkelc_sd, k_spp_tkelc ) 
    192192         ENDIF 
    193193         IF( nn_spp_tkedf > 0 ) THEN 
    194194             rn_ediff0 = rn_ediff 
    195              CALL spp_gen(kt,rn_ediff0,nn_spp_tkedf,rn_tkedf_sd, jk_spp_tkedf ) 
     195             CALL spp_gen( kt,r n_ediff0, nn_spp_tkedf, rn_tkedf_sd, jk_spp_tkedf ) 
    196196         ENDIF 
    197197         IF( nn_spp_tkeds > 0 ) THEN 
    198198             rn_ediss0 = rn_ediss 
    199              CALL spp_gen(kt,rn_ediss0,nn_spp_tkeds,rn_tkeds_sd, jk_spp_tkeds ) 
     199             CALL spp_gen( kt, rn_ediss0, nn_spp_tkeds, rn_tkeds_sd, jk_spp_tkeds ) 
    200200         ENDIF 
    201201         IF( nn_spp_tkebb > 0 ) THEN 
    202202             rn_ebb0 = rn_ebb 
    203              CALL spp_gen(kt,rn_ebb0,nn_spp_tkebb,rn_tkebb_sd,  jk_spp_tkebb ) 
     203             CALL spp_gen( kt, rn_ebb0, nn_spp_tkebb, rn_tkebb_sd, jk_spp_tkebb ) 
    204204        ENDIF 
    205205         IF( nn_spp_tkefr > 0 ) THEN 
    206206             rn_efr0 = rn_efr 
    207              CALL spp_gen(kt,rn_efr0,nn_spp_tkefr,rn_tkefr_sd,  jk_spp_tkefr ) 
     207             CALL spp_gen( kt, rn_efr0, nn_spp_tkefr, rn_tkefr_sd, jk_spp_tkefr ) 
    208208         ENDIF 
    209209      ENDIF 
    … …  
    739739         END DO 
    740740         IF( ln_stopack) THEN 
    741             IF(nn_spp_avt > 0 ) CALL spp_gen(1 ,avt(:,:,jk),nn_spp_avt,rn_avt_sd, jk_spp_avt, jk) 
    742             IF(nn_spp_avm > 0 ) CALL spp_gen(1 ,avm(:,:,jk),nn_spp_avm,rn_avm_sd, jk_spp_avm, jk) 
     741            IF(nn_spp_avt > 0 ) CALL spp_gen( 1, avt(:,:,jk), nn_spp_avt, rn_avt_sd, jk_spp_avt, jk) 
     742            IF(nn_spp_avm > 0 ) CALL spp_gen( 1, avm(:,:,jk), nn_spp_avm, rn_avm_sd, jk_spp_avm, jk) 
    743743         ENDIF 
    744744      END DO 
Note: See TracChangeset for help on using the changeset viewer.