Changeset 12377 for NEMO/trunk/src/SAS/sbcssm.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/SAS/sbcssm.F90
r11536 r12377 62 62 CONTAINS 63 63 64 SUBROUTINE sbc_ssm( kt )64 SUBROUTINE sbc_ssm( kt, Kbb, Kmm ) 65 65 !!---------------------------------------------------------------------- 66 66 !! *** ROUTINE sbc_ssm *** … … 73 73 !!---------------------------------------------------------------------- 74 74 INTEGER, INTENT(in) :: kt ! ocean time-step index 75 INTEGER, INTENT(in) :: Kbb, Kmm ! ocean time level indices 76 ! (not needed for SAS but needed to keep a consistent interface in sbcmod.F90) 75 77 ! 76 78 INTEGER :: ji, jj ! dummy loop indices … … 119 121 IF( .NOT. ln_linssh ) e3t_m(:,:) = e3t_0(:,:,1) !clem: necessary at least for sas2D 120 122 frq_m(:,:) = 1._wp ! - - 121 ssh n (:,:) = 0._wp ! - -123 ssh (:,:,Kmm) = 0._wp ! - - 122 124 ENDIF 123 125 124 126 IF ( nn_ice == 1 ) THEN 125 ts n(:,:,1,jp_tem) = sst_m(:,:)126 ts n(:,:,1,jp_sal) = sss_m(:,:)127 ts b(:,:,1,jp_tem) = sst_m(:,:)128 ts b(:,:,1,jp_sal) = sss_m(:,:)129 ENDIF 130 u b (:,:,1) = ssu_m(:,:)131 v b (:,:,1) = ssv_m(:,:)127 ts(:,:,1,jp_tem,Kmm) = sst_m(:,:) 128 ts(:,:,1,jp_sal,Kmm) = sss_m(:,:) 129 ts(:,:,1,jp_tem,Kbb) = sst_m(:,:) 130 ts(:,:,1,jp_sal,Kbb) = sss_m(:,:) 131 ENDIF 132 uu (:,:,1,Kbb) = ssu_m(:,:) 133 vv (:,:,1,Kbb) = ssv_m(:,:) 132 134 133 IF( ln_ctl) THEN! print control135 IF(sn_cfctl%l_prtctl) THEN ! print control 134 136 CALL prt_ctl(tab2d_1=sst_m, clinfo1=' sst_m - : ', mask1=tmask ) 135 137 CALL prt_ctl(tab2d_1=sss_m, clinfo1=' sss_m - : ', mask1=tmask ) … … 156 158 157 159 158 SUBROUTINE sbc_ssm_init 160 SUBROUTINE sbc_ssm_init( Kbb, Kmm ) 159 161 !!---------------------------------------------------------------------- 160 162 !! *** ROUTINE sbc_ssm_init *** … … 162 164 !! ** Purpose : Initialisation of sea surface mean data 163 165 !!---------------------------------------------------------------------- 166 INTEGER, INTENT(in) :: Kbb, Kmm ! ocean time level indices 167 ! (not needed for SAS but needed to keep a consistent interface in sbcmod.F90) 164 168 INTEGER :: ierr, ierr0, ierr1, ierr2, ierr3 ! return error code 165 169 INTEGER :: ifpr ! dummy loop indice … … 186 190 ENDIF 187 191 ! 188 REWIND( numnam_ref ) ! Namelist namsbc_sas in reference namelist : Input fields189 192 READ ( numnam_ref, namsbc_sas, IOSTAT = ios, ERR = 901) 190 193 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_sas in reference namelist' ) 191 REWIND( numnam_cfg ) ! Namelist namsbc_sas in configuration namelist : Input fields192 194 READ ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 193 195 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) … … 311 313 ENDIF 312 314 ! 313 CALL sbc_ssm( nit000 ) ! need to define ss?_m arrays used in iceistate315 CALL sbc_ssm( nit000, Kbb, Kmm ) ! need to define ss?_m arrays used in iceistate 314 316 l_initdone = .TRUE. 315 317 !
Note: See TracChangeset
for help on using the changeset viewer.