Changeset 7107

Timestamp:

2016-10-26T15:21:30+02:00 (7 years ago)

Author:

flavoni

Message:

#1692 and ROBUST-3, add ISF computation for TOOLS, and remove .nc files

Location:

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg

Files:

• bathy_level.nc (deleted)
• bathy_meter.nc (deleted)
• coordinates.nc (deleted)
• domain_amm12_cfg.nc (deleted)
• domain_orca2vvl_cfg.nc (deleted)
• src/domzgr.f90 (modified) (2 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90

@@ -87 +87 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.3.1 , NEMO Consortium (2011)
-   !! $Id: domzgr.F90 6492 2016-04-22 13:04:31Z mathiot $
+   !! $Id: domzgr.F90 6827 2016-08-01 13:37:15Z flavoni $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -488 +488 @@
          risfdep(:,:)=0.e0
          misfdep(:,:)=1
+         !
+         ! (ISF) TODO build ice draft netcdf file for isomip and build the corresponding part of code
+         IF( cp_cfg == "isomip" .AND. ln_isfcav ) THEN 
+            risfdep(:,:)=200.e0 
+            misfdep(:,:)=1 
+            ij0 = 1 ; ij1 = 40 
+            DO jj = mj0(ij0), mj1(ij1) 
+               risfdep(:,jj)=700.0_wp-(gphit(:,jj)+80.0_wp)*125.0_wp 
+            END DO 
+            WHERE( bathy(:,:) <= 0._wp )  risfdep(:,:) = 0._wp 
+         ! 
+         ELSEIF ( cp_cfg == "isomip2" .AND. ln_isfcav ) THEN
+         ! 
+            risfdep(:,:)=0.e0
+            misfdep(:,:)=1
+            ij0 = 1 ; ij1 = 40
+            DO jj = mj0(ij0), mj1(ij1)
+               risfdep(:,jj)=700.0_wp-(gphit(:,jj)+80.0_wp)*125.0_wp
+            END DO
+            WHERE( bathy(:,:) <= 0._wp )  risfdep(:,:) = 0._wp
+         END IF
          !
          DEALLOCATE( idta, zdta )