Changeset 2358 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_types.F90

Timestamp:

2010-11-04T19:14:01+01:00 (13 years ago)

Author:

rblod

Message:

Changes to be able to compile v3_3_beta with key_agrif,see ticket #753 ; just compilation fixes, I was to scared to try to run AGRIF

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_types.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_types.F90

@@ -36 +36 @@
 
    INTEGER, PUBLIC, PARAMETER :: ntyp1770 = 1023
-   CHARACTER(LEN=4), PUBLIC, DIMENSION(0:ntyp1770) :: cwmotyp1770
+!RBbug useless ?   CHARACTER(LEN=4), PUBLIC, DIMENSION(0:ntyp1770) :: cwmotyp1770
    CHARACTER(LEN=80), PUBLIC, DIMENSION(0:ntyp1770) :: cwmonam1770
    CHARACTER(LEN=3), PUBLIC, DIMENSION(0:ntyp1770) :: ctypshort
@@ -119 +119 @@
          ctypshort(ji) = 'XBT'
 
-         IF ( ji < 1000 ) THEN
-            WRITE(cwmotyp1770(ji),'(1X,I3.3)') ji
-         ELSE
-            WRITE(cwmotyp1770(ji),'(I4.4)') ji
-         ENDIF
+!         IF ( ji < 1000 ) THEN
+!            WRITE(cwmotyp1770(ji),'(1X,I3.3)') ji
+!         ELSE
+!            WRITE(cwmotyp1770(ji),'(I4.4)') ji
+!         ENDIF
 
       END DO