Changeset 11440 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
- Timestamp:
- 2019-08-15T16:43:05+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r11404 r11440 98 98 IF( nn_sstr == 1 ) THEN !* Temperature restoring term 99 99 100 CALL wrk_alloc( jpi, jpj, rn_dqdt_s )100 CALL wrk_alloc( jpi, jpj, rn_dqdt_s ) 101 101 rn_dqdt_s(:,:) = rn_dqdt 102 102 103 103 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 ) 105 105 DO jj = 1, jpj 106 106 DO ji = 1, jpi … … 135 135 zsrp(:,:) = rn_deds 136 136 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 ) 138 138 zerp_bnd = rn_sssr_bnd / rday ! - - 139 139 !CDIR COLLAPSE
Note: See TracChangeset
for help on using the changeset viewer.