- Timestamp:
- 2017-12-18T23:34:28+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_pra.F90
r9019 r9123 708 708 CALL iom_get( numrir, jpdom_autoglo, 'sxyage', sxyage ) 709 709 ! ! open water in sea ice 710 CALL iom_get( numrir, jpdom_autoglo, 'sxopw ', sxopw )711 CALL iom_get( numrir, jpdom_autoglo, 'syopw ', syopw )710 CALL iom_get( numrir, jpdom_autoglo, 'sxopw' , sxopw ) 711 CALL iom_get( numrir, jpdom_autoglo, 'syopw' , syopw ) 712 712 CALL iom_get( numrir, jpdom_autoglo, 'sxxopw', sxxopw ) 713 713 CALL iom_get( numrir, jpdom_autoglo, 'syyopw', syyopw ) … … 716 716 DO jk = 1, nlay_i 717 717 WRITE(zchar1,'(I2.2)') jk 718 znam = 'sxe'//'_ il'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sxe (:,:,jk,:) = z3d(:,:,:)719 znam = 'sye'//'_ il'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sye (:,:,jk,:) = z3d(:,:,:)720 znam = 'sxxe'//'_ il'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sxxe(:,:,jk,:) = z3d(:,:,:)721 znam = 'syye'//'_ il'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; syye(:,:,jk,:) = z3d(:,:,:)722 znam = 'sxye'//'_ il'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sxye(:,:,jk,:) = z3d(:,:,:)718 znam = 'sxe'//'_l'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sxe (:,:,jk,:) = z3d(:,:,:) 719 znam = 'sye'//'_l'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sye (:,:,jk,:) = z3d(:,:,:) 720 znam = 'sxxe'//'_l'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sxxe(:,:,jk,:) = z3d(:,:,:) 721 znam = 'syye'//'_l'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; syye(:,:,jk,:) = z3d(:,:,:) 722 znam = 'sxye'//'_l'//zchar1 ; CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) ; sxye(:,:,jk,:) = z3d(:,:,:) 723 723 END DO 724 724 ! … … 802 802 CALL iom_rstput( iter, nitrst, numriw, 'sxyage', sxyage ) 803 803 ! ! open water in sea ice 804 CALL iom_rstput( iter, nitrst, numriw, 'sxopw ', sxopw )805 CALL iom_rstput( iter, nitrst, numriw, 'syopw ', syopw )804 CALL iom_rstput( iter, nitrst, numriw, 'sxopw' , sxopw ) 805 CALL iom_rstput( iter, nitrst, numriw, 'syopw' , syopw ) 806 806 CALL iom_rstput( iter, nitrst, numriw, 'sxxopw', sxxopw ) 807 807 CALL iom_rstput( iter, nitrst, numriw, 'syyopw', syyopw ) … … 810 810 DO jk = 1, nlay_i 811 811 WRITE(zchar1,'(I2.2)') jk 812 znam = 'sxe'//'_ il'//zchar1 ; z3d(:,:,:) = sxe (:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d )813 znam = 'sye'//'_ il'//zchar1 ; z3d(:,:,:) = sye (:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d )814 znam = 'sxxe'//'_ il'//zchar1 ; z3d(:,:,:) = sxxe(:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d )815 znam = 'syye'//'_ il'//zchar1 ; z3d(:,:,:) = syye(:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d )816 znam = 'sxye'//'_ il'//zchar1 ; z3d(:,:,:) = sxye(:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d )812 znam = 'sxe'//'_l'//zchar1 ; z3d(:,:,:) = sxe (:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 813 znam = 'sye'//'_l'//zchar1 ; z3d(:,:,:) = sye (:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 814 znam = 'sxxe'//'_l'//zchar1 ; z3d(:,:,:) = sxxe(:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 815 znam = 'syye'//'_l'//zchar1 ; z3d(:,:,:) = syye(:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 816 znam = 'sxye'//'_l'//zchar1 ; z3d(:,:,:) = sxye(:,:,jk,:) ; CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 817 817 END DO 818 818 !
Note: See TracChangeset
for help on using the changeset viewer.