Changeset 14109
- Timestamp:
- 2020-12-04T18:21:13+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13787_doc_latex_recovery
- Files:
-
- 4 edited
-
. (modified) (1 prop)
-
src/ICE/ice.F90 (modified) (1 diff)
-
src/ICE/icedyn_adv_pra.F90 (modified) (2 diffs)
-
src/OCE/SBC/sbccpl.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13787_doc_latex_recovery
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r12970_AGRIF_CMEMSext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13787_doc_latex_recovery/src/ICE/ice.F90
r14085 r14109 256 256 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: divu_i !: Divergence of the velocity field [s-1] 257 257 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: shear_i !: Shear of the velocity field [s-1] 258 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: aniso_11, aniso_12 !: structure tensor elements259 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rdg_conv258 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: aniso_11, aniso_12 !: structure tensor elements 259 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rdg_conv 260 260 ! 261 261 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: t_bo !: Sea-Ice bottom temperature [Kelvin] -
NEMO/branches/2020/dev_r13787_doc_latex_recovery/src/ICE/icedyn_adv_pra.F90
r14085 r14109 1079 1079 ! 1080 1080 ! ! ice thickness 1081 CALL iom_rstput( iter, nitrst, numriw, 'sxice' , sxice )1082 CALL iom_rstput( iter, nitrst, numriw, 'syice' , syice )1083 CALL iom_rstput( iter, nitrst, numriw, 'sxxice', sxxice )1084 CALL iom_rstput( iter, nitrst, numriw, 'syyice', syyice )1085 CALL iom_rstput( iter, nitrst, numriw, 'sxyice', sxyice )1081 CALL iom_rstput( iter, nitrst, numriw, 'sxice' , sxice ) 1082 CALL iom_rstput( iter, nitrst, numriw, 'syice' , syice ) 1083 CALL iom_rstput( iter, nitrst, numriw, 'sxxice', sxxice ) 1084 CALL iom_rstput( iter, nitrst, numriw, 'syyice', syyice ) 1085 CALL iom_rstput( iter, nitrst, numriw, 'sxyice', sxyice ) 1086 1086 ! ! snow thickness 1087 CALL iom_rstput( iter, nitrst, numriw, 'sxsn' , sxsn )1088 CALL iom_rstput( iter, nitrst, numriw, 'sysn' , sysn )1089 CALL iom_rstput( iter, nitrst, numriw, 'sxxsn' , sxxsn )1090 CALL iom_rstput( iter, nitrst, numriw, 'syysn' , syysn )1091 CALL iom_rstput( iter, nitrst, numriw, 'sxysn' , sxysn )1087 CALL iom_rstput( iter, nitrst, numriw, 'sxsn' , sxsn ) 1088 CALL iom_rstput( iter, nitrst, numriw, 'sysn' , sysn ) 1089 CALL iom_rstput( iter, nitrst, numriw, 'sxxsn' , sxxsn ) 1090 CALL iom_rstput( iter, nitrst, numriw, 'syysn' , syysn ) 1091 CALL iom_rstput( iter, nitrst, numriw, 'sxysn' , sxysn ) 1092 1092 ! ! ice concentration 1093 CALL iom_rstput( iter, nitrst, numriw, 'sxa' , sxa )1094 CALL iom_rstput( iter, nitrst, numriw, 'sya' , sya )1095 CALL iom_rstput( iter, nitrst, numriw, 'sxxa' , sxxa )1096 CALL iom_rstput( iter, nitrst, numriw, 'syya' , syya )1097 CALL iom_rstput( iter, nitrst, numriw, 'sxya' , sxya )1093 CALL iom_rstput( iter, nitrst, numriw, 'sxa' , sxa ) 1094 CALL iom_rstput( iter, nitrst, numriw, 'sya' , sya ) 1095 CALL iom_rstput( iter, nitrst, numriw, 'sxxa' , sxxa ) 1096 CALL iom_rstput( iter, nitrst, numriw, 'syya' , syya ) 1097 CALL iom_rstput( iter, nitrst, numriw, 'sxya' , sxya ) 1098 1098 ! ! ice salinity 1099 CALL iom_rstput( iter, nitrst, numriw, 'sxsal' , sxsal )1100 CALL iom_rstput( iter, nitrst, numriw, 'sysal' , sysal )1101 CALL iom_rstput( iter, nitrst, numriw, 'sxxsal', sxxsal )1102 CALL iom_rstput( iter, nitrst, numriw, 'syysal', syysal )1103 CALL iom_rstput( iter, nitrst, numriw, 'sxysal', sxysal )1099 CALL iom_rstput( iter, nitrst, numriw, 'sxsal' , sxsal ) 1100 CALL iom_rstput( iter, nitrst, numriw, 'sysal' , sysal ) 1101 CALL iom_rstput( iter, nitrst, numriw, 'sxxsal', sxxsal ) 1102 CALL iom_rstput( iter, nitrst, numriw, 'syysal', syysal ) 1103 CALL iom_rstput( iter, nitrst, numriw, 'sxysal', sxysal ) 1104 1104 ! ! ice age 1105 CALL iom_rstput( iter, nitrst, numriw, 'sxage' , sxage )1106 CALL iom_rstput( iter, nitrst, numriw, 'syage' , syage )1107 CALL iom_rstput( iter, nitrst, numriw, 'sxxage', sxxage )1108 CALL iom_rstput( iter, nitrst, numriw, 'syyage', syyage )1109 CALL iom_rstput( iter, nitrst, numriw, 'sxyage', sxyage )1105 CALL iom_rstput( iter, nitrst, numriw, 'sxage' , sxage ) 1106 CALL iom_rstput( iter, nitrst, numriw, 'syage' , syage ) 1107 CALL iom_rstput( iter, nitrst, numriw, 'sxxage', sxxage ) 1108 CALL iom_rstput( iter, nitrst, numriw, 'syyage', syyage ) 1109 CALL iom_rstput( iter, nitrst, numriw, 'sxyage', sxyage ) 1110 1110 ! ! snow layers heat content 1111 1111 DO jk = 1, nlay_s 1112 1112 WRITE(zchar1,'(I2.2)') jk 1113 1113 znam = 'sxc0'//'_l'//zchar1 ; z3d(:,:,:) = sxc0 (:,:,jk,:) 1114 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1114 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1115 1115 znam = 'syc0'//'_l'//zchar1 ; z3d(:,:,:) = syc0 (:,:,jk,:) 1116 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1116 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1117 1117 znam = 'sxxc0'//'_l'//zchar1 ; z3d(:,:,:) = sxxc0(:,:,jk,:) 1118 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1118 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1119 1119 znam = 'syyc0'//'_l'//zchar1 ; z3d(:,:,:) = syyc0(:,:,jk,:) 1120 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1120 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1121 1121 znam = 'sxyc0'//'_l'//zchar1 ; z3d(:,:,:) = sxyc0(:,:,jk,:) 1122 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1122 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1123 1123 END DO 1124 1124 ! ! ice layers heat content … … 1126 1126 WRITE(zchar1,'(I2.2)') jk 1127 1127 znam = 'sxe'//'_l'//zchar1 ; z3d(:,:,:) = sxe (:,:,jk,:) 1128 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1128 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1129 1129 znam = 'sye'//'_l'//zchar1 ; z3d(:,:,:) = sye (:,:,jk,:) 1130 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1130 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1131 1131 znam = 'sxxe'//'_l'//zchar1 ; z3d(:,:,:) = sxxe(:,:,jk,:) 1132 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1132 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1133 1133 znam = 'syye'//'_l'//zchar1 ; z3d(:,:,:) = syye(:,:,jk,:) 1134 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1134 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1135 1135 znam = 'sxye'//'_l'//zchar1 ; z3d(:,:,:) = sxye(:,:,jk,:) 1136 CALL iom_rstput( iter, nitrst, numriw, znam , z3d )1136 CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 1137 1137 END DO 1138 1138 ! -
NEMO/branches/2020/dev_r13787_doc_latex_recovery/src/OCE/SBC/sbccpl.F90
r14085 r14109 1765 1765 CASE( 'none' ) ! Not available as for now: needs additional coding below when computing zevap_oce 1766 1766 ! ! since fields received are not defined with none option 1767 CALL ctl_stop( 'STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_emp value in namelist namsbc_cpl')1767 CALL ctl_stop('STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_emp value in namelist namsbc_cpl') 1768 1768 END SELECT 1769 1769 … … 2037 2037 #endif 2038 2038 ! outputs 2039 IF( srcv(jpr_cal)%laction ) CALL iom_put('hflx_cal_cea' , - frcv(jpr_cal)%z3(:,:,1) * rLfus ) ! latent heat from calving 2040 IF( srcv(jpr_icb)%laction ) CALL iom_put('hflx_icb_cea' , - frcv(jpr_icb)%z3(:,:,1) * rLfus ) ! latent heat from icebergs melting 2041 IF( iom_use('hflx_rain_cea') ) CALL iom_put('hflx_rain_cea' , ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) ! heat flux from rain (cell average) 2042 IF( iom_use('hflx_evap_cea') ) CALL iom_put('hflx_evap_cea' , ( frcv(jpr_tevp)%z3(:,:,1) - frcv(jpr_ievp)%z3(:,:,1) & 2043 & * picefr(:,:) ) * zcptn(:,:) * tmask(:,:,1) ) ! heat flux from evap (cell average) 2044 IF( iom_use('hflx_prec_cea') ) CALL iom_put('hflx_prec_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) + & ! heat flux from all precip (cell avg) 2045 & ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) 2046 IF( iom_use('hflx_snow_cea') ) CALL iom_put('hflx_snow_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) ) ! heat flux from snow (cell average) 2047 IF( iom_use('hflx_snow_ao_cea') ) CALL iom_put('hflx_snow_ao_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) & 2048 & * ( 1._wp - zsnw(:,:) ) ) ! heat flux from snow (over ocean) 2049 IF( iom_use('hflx_snow_ai_cea') ) CALL iom_put('hflx_snow_ai_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) & 2050 & * zsnw(:,:) ) ! heat flux from snow (over ice) 2039 IF ( srcv(jpr_cal)%laction ) CALL iom_put('hflx_cal_cea' , - frcv(jpr_cal)%z3(:,:,1) * rLfus ) ! latent heat from calving 2040 IF ( srcv(jpr_icb)%laction ) CALL iom_put('hflx_icb_cea' , - frcv(jpr_icb)%z3(:,:,1) * rLfus ) ! latent heat from icebergs melting 2041 IF ( iom_use('hflx_rain_cea') ) & ! heat flux from rain (cell average) 2042 & CALL iom_put('hflx_rain_cea' , ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) 2043 IF ( iom_use('hflx_evap_cea') ) & ! heat flux from evap (cell average) 2044 & CALL iom_put('hflx_evap_cea' , ( frcv(jpr_tevp)%z3(:,:,1) - zevap_ice_total(:,:) * picefr(:,:) ) & 2045 & * zcptn(:,:) * tmask(:,:,1) ) 2046 IF ( iom_use('hflx_prec_cea') ) & ! heat flux from all precip (cell avg) 2047 & CALL iom_put('hflx_prec_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) & 2048 & + ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) 2049 IF ( iom_use('hflx_snow_cea') ) & ! heat flux from snow (cell average) 2050 & CALL iom_put('hflx_snow_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) ) 2051 IF ( iom_use('hflx_snow_ao_cea') ) & ! heat flux from snow (over ocean) 2052 & CALL iom_put('hflx_snow_ao_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) * ( 1._wp - zsnw(:,:) ) ) 2053 IF ( iom_use('hflx_snow_ai_cea') ) & ! heat flux from snow (over ice) 2054 & CALL iom_put('hflx_snow_ai_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) * zsnw(:,:) ) 2051 2055 ! note: hflx for runoff and iceshelf are done in sbcrnf and sbcisf resp. 2052 2056 ! … … 2102 2106 CASE( 'none' ) ! Not available as for now: needs additional coding 2103 2107 ! ! since fields received, here zqsr_tot, are not defined with none option 2104 CALL ctl_stop( 'STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_qsr value in namelist namsbc_cpl')2108 CALL ctl_stop('STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_qsr value in namelist namsbc_cpl') 2105 2109 END SELECT 2106 2110 IF( ln_dm2dc .AND. ln_cpl ) THEN ! modify qsr to include the diurnal cycle
Note: See TracChangeset
for help on using the changeset viewer.
