Changeset 4570 for trunk/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
- Timestamp:
- 2014-03-25T18:47:41+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r4313 r4570 50 50 LOGICAL :: ln_dynwzv !: vertical velocity read in a file (T) or computed from u/v (F) 51 51 LOGICAL :: ln_dynbbl !: bbl coef read in a file (T) or computed (F) 52 LOGICAL :: ln_degrad !: degradation option enabled or not 53 54 INTEGER , PARAMETER :: jpfld = 20 ! maximum number of fields to read 52 LOGICAL :: ln_degrad !: degradation option enabled or not 53 LOGICAL :: ln_dynrnf !: read runoff data in file (T) or set to zero (F) 54 55 INTEGER , PARAMETER :: jpfld = 21 ! maximum number of fields to read 55 56 INTEGER , SAVE :: jf_tem ! index of temperature 56 57 INTEGER , SAVE :: jf_sal ! index of salinity … … 64 65 INTEGER , SAVE :: jf_wnd ! index of wind speed 65 66 INTEGER , SAVE :: jf_ice ! index of sea ice cover 67 INTEGER , SAVE :: jf_rnf ! index of river runoff 66 68 INTEGER , SAVE :: jf_ubl ! index of u-bbl coef 67 69 INTEGER , SAVE :: jf_vbl ! index of v-bbl coef … … 257 259 fr_i(:,:) = sf_dyn(jf_ice)%fnow(:,:,1) * tmask(:,:,1) ! Sea-ice fraction 258 260 qsr (:,:) = sf_dyn(jf_qsr)%fnow(:,:,1) * tmask(:,:,1) ! solar radiation 261 IF ( ln_dynrnf ) & 262 rnf (:,:) = sf_dyn(jf_rnf)%fnow(:,:,1) * tmask(:,:,1) ! river runoffs 259 263 260 264 ! ! bbl diffusive coef … … 329 333 CHARACTER(len=100) :: cn_dir ! Root directory for location of core files 330 334 TYPE(FLD_N), DIMENSION(jpfld) :: slf_d ! array of namelist informations on the fields to read 331 TYPE(FLD_N) :: sn_tem, sn_sal, sn_mld, sn_emp, sn_ice, sn_qsr, sn_wnd ! informations about the fields to be read335 TYPE(FLD_N) :: sn_tem, sn_sal, sn_mld, sn_emp, sn_ice, sn_qsr, sn_wnd, sn_rnf ! informations about the fields to be read 332 336 TYPE(FLD_N) :: sn_uwd, sn_vwd, sn_wwd, sn_avt, sn_ubl, sn_vbl ! " " 333 337 TYPE(FLD_N) :: sn_ahu, sn_ahv, sn_ahw, sn_eiu, sn_eiv, sn_eiw, sn_fmf ! " " 334 338 !!---------------------------------------------------------------------- 335 339 ! 336 NAMELIST/namdta_dyn/cn_dir, ln_dynwzv, ln_dynbbl, ln_degrad, &337 & sn_tem, sn_sal, sn_mld, sn_emp, sn_ice, sn_qsr, sn_wnd, &340 NAMELIST/namdta_dyn/cn_dir, ln_dynwzv, ln_dynbbl, ln_degrad, ln_dynrnf, & 341 & sn_tem, sn_sal, sn_mld, sn_emp, sn_ice, sn_qsr, sn_wnd, sn_rnf, & 338 342 & sn_uwd, sn_vwd, sn_wwd, sn_avt, sn_ubl, sn_vbl, & 339 343 & sn_ahu, sn_ahv, sn_ahw, sn_eiu, sn_eiv, sn_eiw, sn_fmf … … 357 361 WRITE(numout,*) ' bbl coef read from file (T) or computed (F) ln_dynbbl = ', ln_dynbbl 358 362 WRITE(numout,*) ' degradation option enabled (T) or not (F) ln_degrad = ', ln_degrad 363 WRITE(numout,*) ' river runoff option enabled (T) or not (F) ln_dynrnf = ', ln_dynrnf 359 364 WRITE(numout,*) 360 365 ENDIF … … 370 375 371 376 jf_tem = 1 ; jf_sal = 2 ; jf_mld = 3 ; jf_emp = 4 ; jf_fmf = 5 ; jf_ice = 6 ; jf_qsr = 7 372 jf_wnd = 8 ; jf_uwd = 9 ; jf_vwd = 10 ; jf_wwd = 11 ; jf_avt = 12 ; jfld = 12377 jf_wnd = 8 ; jf_uwd = 9 ; jf_vwd = 10 ; jf_wwd = 11 ; jf_avt = 12 ; jfld = jf_avt 373 378 ! 374 379 slf_d(jf_tem) = sn_tem ; slf_d(jf_sal) = sn_sal ; slf_d(jf_mld) = sn_mld … … 376 381 slf_d(jf_qsr) = sn_qsr ; slf_d(jf_wnd) = sn_wnd ; slf_d(jf_avt) = sn_avt 377 382 slf_d(jf_uwd) = sn_uwd ; slf_d(jf_vwd) = sn_vwd ; slf_d(jf_wwd) = sn_wwd 383 384 ! 385 IF ( ln_dynrnf ) THEN 386 jf_rnf = jfld + 1 ; jfld = jf_rnf 387 slf_d(jf_rnf) = sn_rnf 388 ELSE 389 rnf (:,:) = 0._wp 390 ENDIF 391 378 392 ! 379 393 IF( .NOT.ln_degrad ) THEN ! no degrad option 380 394 IF( lk_traldf_eiv .AND. ln_dynbbl ) THEN ! eiv & bbl 381 jf_ubl = 13 ; jf_vbl = 14 ; jf_eiw = 15 ; jfld = 15395 jf_ubl = jfld + 1 ; jf_vbl = jfld + 2 ; jf_eiw = jfld + 3 ; jfld = jf_eiw 382 396 slf_d(jf_ubl) = sn_ubl ; slf_d(jf_vbl) = sn_vbl ; slf_d(jf_eiw) = sn_eiw 383 397 ENDIF 384 398 IF( .NOT.lk_traldf_eiv .AND. ln_dynbbl ) THEN ! no eiv & bbl 385 jf_ubl = 13 ; jf_vbl = 14 ; jfld = 14399 jf_ubl = jfld + 1 ; jf_vbl = jfld + 2 ; jfld = jf_vbl 386 400 slf_d(jf_ubl) = sn_ubl ; slf_d(jf_vbl) = sn_vbl 387 401 ENDIF 388 402 IF( lk_traldf_eiv .AND. .NOT.ln_dynbbl ) THEN ! eiv & no bbl 389 jf_eiw = 13 ; jfld = 13 ;slf_d(jf_eiw) = sn_eiw403 jf_eiw = jfld + 1 ; jfld = jf_eiw ; slf_d(jf_eiw) = sn_eiw 390 404 ENDIF 391 405 ELSE 392 jf_ahu = 13 ; jf_ahv = 14 ; jf_ahw = 15 ; jfld = 15406 jf_ahu = jfld + 1 ; jf_ahv = jfld + 2 ; jf_ahw = jfld + 3 ; jfld = jf_ahw 393 407 slf_d(jf_ahu) = sn_ahu ; slf_d(jf_ahv) = sn_ahv ; slf_d(jf_ahw) = sn_ahw 394 408 IF( lk_traldf_eiv .AND. ln_dynbbl ) THEN ! eiv & bbl 395 jf_ubl = 16 ; jf_vbl = 17396 slf_d(jf_ubl) = sn_ubl ; slf_d(jf_vbl) = sn_vbl 397 jf_eiu = 18 ; jf_eiv = 19 ; jf_eiw = 20 ; jfld = 20409 jf_ubl = jfld + 1 ; jf_vbl = jfld + 2 ; 410 slf_d(jf_ubl) = sn_ubl ; slf_d(jf_vbl) = sn_vbl 411 jf_eiu = jfld + 3 ; jf_eiv = jfld + 4 ; jf_eiw = jfld + 5 ; jfld = jf_eiw 398 412 slf_d(jf_eiu) = sn_eiu ; slf_d(jf_eiv) = sn_eiv ; slf_d(jf_eiw) = sn_eiw 399 413 ENDIF 400 414 IF( .NOT.lk_traldf_eiv .AND. ln_dynbbl ) THEN ! no eiv & bbl 401 jf_ubl = 16 ; jf_vbl = 17 ; jfld = 17415 jf_ubl = jfld + 1 ; jf_vbl = jfld + 2 ; jfld = jf_vbl 402 416 slf_d(jf_ubl) = sn_ubl ; slf_d(jf_vbl) = sn_vbl 403 417 ENDIF 404 418 IF( lk_traldf_eiv .AND. .NOT.ln_dynbbl ) THEN ! eiv & no bbl 405 jf_eiu = 16 ; jf_eiv = 17 ; jf_eiw = 18 ; jfld = 18419 jf_eiu = jfld + 1 ; jf_eiv = jfld + 2 ; jf_eiw = jfld + 3 ; jfld = jf_eiw 406 420 slf_d(jf_eiu) = sn_eiu ; slf_d(jf_eiv) = sn_eiv ; slf_d(jf_eiw) = sn_eiw 407 421 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.