New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13985 for NEMO/branches/2020/SI3_martin_ponds/src/ICE/icedyn_adv_pra.F90 – NEMO

Ignore:
Timestamp:
2020-12-02T12:37:20+01:00 (4 years ago)
Author:
clem
Message:

merge with trunk at r13983

Location:
NEMO/branches/2020/SI3_martin_ponds
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/SI3_martin_ponds

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@13559        sette 
         10^/utils/CI/sette_MPI3_LoopFusion@13943         sette 

  • NEMO/branches/2020/SI3_martin_ponds/src/ICE/icedyn_adv_pra.F90

    r13957 r13985  
    991991            DO jk = 1, nlay_s 
    992992               WRITE(zchar1,'(I2.2)') jk 
    993                znam = 'sxc0'//'_l'//zchar1  ;   CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   sxc0 (:,:,jk,:) = z3d(:,:,:) 
    994                znam = 'syc0'//'_l'//zchar1  ;   CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   syc0 (:,:,jk,:) = z3d(:,:,:) 
    995                znam = 'sxxc0'//'_l'//zchar1 ;   CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxxc0(:,:,jk,:) = z3d(:,:,:) 
    996                znam = 'syyc0'//'_l'//zchar1 ;   CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   syyc0(:,:,jk,:) = z3d(:,:,:) 
    997                znam = 'sxyc0'//'_l'//zchar1 ;   CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxyc0(:,:,jk,:) = z3d(:,:,:) 
     993               znam = 'sxc0'//'_l'//zchar1   
     994               CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   sxc0 (:,:,jk,:) = z3d(:,:,:) 
     995               znam = 'syc0'//'_l'//zchar1   
     996               CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   syc0 (:,:,jk,:) = z3d(:,:,:) 
     997               znam = 'sxxc0'//'_l'//zchar1  
     998               CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxxc0(:,:,jk,:) = z3d(:,:,:) 
     999               znam = 'syyc0'//'_l'//zchar1  
     1000               CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   syyc0(:,:,jk,:) = z3d(:,:,:) 
     1001               znam = 'sxyc0'//'_l'//zchar1  
     1002               CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxyc0(:,:,jk,:) = z3d(:,:,:) 
    9981003            END DO 
    9991004            !                                                        ! ice layers heat content 
    10001005            DO jk = 1, nlay_i 
    10011006               WRITE(zchar1,'(I2.2)') jk 
    1002                znam = 'sxe'//'_l'//zchar1   ;   CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   sxe (:,:,jk,:) = z3d(:,:,:) 
    1003                znam = 'sye'//'_l'//zchar1   ;   CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   sye (:,:,jk,:) = z3d(:,:,:) 
    1004                znam = 'sxxe'//'_l'//zchar1  ;   CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxxe(:,:,jk,:) = z3d(:,:,:) 
    1005                znam = 'syye'//'_l'//zchar1  ;   CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   syye(:,:,jk,:) = z3d(:,:,:) 
    1006                znam = 'sxye'//'_l'//zchar1  ;   CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxye(:,:,jk,:) = z3d(:,:,:) 
     1007               znam = 'sxe'//'_l'//zchar1    
     1008               CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   sxe (:,:,jk,:) = z3d(:,:,:) 
     1009               znam = 'sye'//'_l'//zchar1    
     1010               CALL iom_get( numrir, jpdom_auto, znam , z3d, psgn = -1._wp )   ;   sye (:,:,jk,:) = z3d(:,:,:) 
     1011               znam = 'sxxe'//'_l'//zchar1   
     1012               CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxxe(:,:,jk,:) = z3d(:,:,:) 
     1013               znam = 'syye'//'_l'//zchar1   
     1014               CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   syye(:,:,jk,:) = z3d(:,:,:) 
     1015               znam = 'sxye'//'_l'//zchar1   
     1016               CALL iom_get( numrir, jpdom_auto, znam , z3d )   ;   sxye(:,:,jk,:) = z3d(:,:,:) 
    10071017            END DO 
    10081018            ! 
    … …  
    10691079         ! 
    10701080         !                                                           ! ice thickness 
    1071          CALL iom_rstput( iter, nitrst, numriw, 'sxice' , sxice  ) 
    1072          CALL iom_rstput( iter, nitrst, numriw, 'syice' , syice  ) 
    1073          CALL iom_rstput( iter, nitrst, numriw, 'sxxice', sxxice ) 
    1074          CALL iom_rstput( iter, nitrst, numriw, 'syyice', syyice ) 
    1075          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) 
    10761086         !                                                           ! snow thickness 
    1077          CALL iom_rstput( iter, nitrst, numriw, 'sxsn'  , sxsn   ) 
    1078          CALL iom_rstput( iter, nitrst, numriw, 'sysn'  , sysn   ) 
    1079          CALL iom_rstput( iter, nitrst, numriw, 'sxxsn' , sxxsn  ) 
    1080          CALL iom_rstput( iter, nitrst, numriw, 'syysn' , syysn  ) 
    1081          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 ) 
    10821092         !                                                           ! ice concentration 
    1083          CALL iom_rstput( iter, nitrst, numriw, 'sxa'   , sxa    ) 
    1084          CALL iom_rstput( iter, nitrst, numriw, 'sya'   , sya    ) 
    1085          CALL iom_rstput( iter, nitrst, numriw, 'sxxa'  , sxxa   ) 
    1086          CALL iom_rstput( iter, nitrst, numriw, 'syya'  , syya   ) 
    1087          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  ) 
    10881098         !                                                           ! ice salinity 
    1089          CALL iom_rstput( iter, nitrst, numriw, 'sxsal' , sxsal  ) 
    1090          CALL iom_rstput( iter, nitrst, numriw, 'sysal' , sysal  ) 
    1091          CALL iom_rstput( iter, nitrst, numriw, 'sxxsal', sxxsal ) 
    1092          CALL iom_rstput( iter, nitrst, numriw, 'syysal', syysal ) 
    1093          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) 
    10941104         !                                                           ! ice age 
    1095          CALL iom_rstput( iter, nitrst, numriw, 'sxage' , sxage  ) 
    1096          CALL iom_rstput( iter, nitrst, numriw, 'syage' , syage  ) 
    1097          CALL iom_rstput( iter, nitrst, numriw, 'sxxage', sxxage ) 
    1098          CALL iom_rstput( iter, nitrst, numriw, 'syyage', syyage ) 
    1099          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) 
    11001110         !                                                           ! snow layers heat content 
    11011111         DO jk = 1, nlay_s 
    11021112            WRITE(zchar1,'(I2.2)') jk 
    1103             znam = 'sxc0'//'_l'//zchar1  ;   z3d(:,:,:) = sxc0 (:,:,jk,:)  ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1104             znam = 'syc0'//'_l'//zchar1  ;   z3d(:,:,:) = syc0 (:,:,jk,:)  ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1105             znam = 'sxxc0'//'_l'//zchar1 ;   z3d(:,:,:) = sxxc0(:,:,jk,:)  ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1106             znam = 'syyc0'//'_l'//zchar1 ;   z3d(:,:,:) = syyc0(:,:,jk,:)  ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1107             znam = 'sxyc0'//'_l'//zchar1 ;   z3d(:,:,:) = sxyc0(:,:,jk,:)  ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
     1113            znam = 'sxc0'//'_l'//zchar1  ;   z3d(:,:,:) = sxc0 (:,:,jk,:) 
     1114            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1115            znam = 'syc0'//'_l'//zchar1  ;   z3d(:,:,:) = syc0 (:,:,jk,:) 
     1116            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1117            znam = 'sxxc0'//'_l'//zchar1 ;   z3d(:,:,:) = sxxc0(:,:,jk,:) 
     1118            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1119            znam = 'syyc0'//'_l'//zchar1 ;   z3d(:,:,:) = syyc0(:,:,jk,:) 
     1120            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1121            znam = 'sxyc0'//'_l'//zchar1 ;   z3d(:,:,:) = sxyc0(:,:,jk,:) 
     1122            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
    11081123         END DO 
    11091124         !                                                           ! ice layers heat content 
    11101125         DO jk = 1, nlay_i 
    11111126            WRITE(zchar1,'(I2.2)') jk 
    1112             znam = 'sxe'//'_l'//zchar1   ;   z3d(:,:,:) = sxe (:,:,jk,:)   ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1113             znam = 'sye'//'_l'//zchar1   ;   z3d(:,:,:) = sye (:,:,jk,:)   ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1114             znam = 'sxxe'//'_l'//zchar1  ;   z3d(:,:,:) = sxxe(:,:,jk,:)   ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1115             znam = 'syye'//'_l'//zchar1  ;   z3d(:,:,:) = syye(:,:,jk,:)   ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
    1116             znam = 'sxye'//'_l'//zchar1  ;   z3d(:,:,:) = sxye(:,:,jk,:)   ;   CALL iom_rstput( iter, nitrst, numriw, znam , z3d ) 
     1127            znam = 'sxe'//'_l'//zchar1   ;   z3d(:,:,:) = sxe (:,:,jk,:) 
     1128            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1129            znam = 'sye'//'_l'//zchar1   ;   z3d(:,:,:) = sye (:,:,jk,:) 
     1130            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1131            znam = 'sxxe'//'_l'//zchar1  ;   z3d(:,:,:) = sxxe(:,:,jk,:) 
     1132            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1133            znam = 'syye'//'_l'//zchar1  ;   z3d(:,:,:) = syye(:,:,jk,:) 
     1134            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
     1135            znam = 'sxye'//'_l'//zchar1  ;   z3d(:,:,:) = sxye(:,:,jk,:) 
     1136            CALL iom_rstput( iter, nitrst, numriw, znam , z3d) 
    11171137         END DO 
    11181138         ! 
Note: See TracChangeset for help on using the changeset viewer.