Changeset 14103
- Timestamp:
- 2020-12-04T17:19:44+01:00 (4 years ago)
- Location:
- NEMO/trunk/src/ICE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/ice.F90
r14072 r14103 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/trunk/src/ICE/icedyn_adv_pra.F90
r14072 r14103 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 !
Note: See TracChangeset
for help on using the changeset viewer.